1 POKE56,56:CLR:PRINT"[147]":POKE53272,(PEEK(53272)AND240)OR14:POKE53280,12:POKE53281,13:POKE53282,8:POKE53283,7:POKE53270,PEEK(53270)OR16:SS$="                                        ":T1$="[156]       [144][146]PARTS[156]                [144][146]PARTS[156]       
6 T2$[178]"CLR     STOPWAITREMAININGCLR            STOPWAITREMAININGCLR     ":T3$[178]"CLR       STOPWAIT     CLR                STOPWAIT     CLR       ":W1$[178]"STOPRAIN - STOPHAIL - STOPLIGHTNING - STOPTORNADO":W2$[178]"INPUT USING FIRST LETTER ONLY":SC[178]54272:SL[178]1024:S[178]54272:[141]38:[151]S[170]24,0:[141]44
14 [153]T1$;:[153]T2$;:[153]T3$:P[178]325:[141]57:[153]"INPUT NAME OF PLAYER # 1":[141]51:N1$[178]QQ$:P[178]325:[141]57:[153]"INPUT NAME OF PLAYER # 2":[141]51:N2$[178]QQ$:P[178]930[171]([195](N1$)[173]2):[141]57:[153]"STOP"N1$:P[178]950[171]([195](N2$)[173]2):[141]57:[153]"STOP"N2$
19 P[178]240:[141]57:[153]N1$" - IT'S YOUR TURN":[141]58:[141]68:LM[178]1507:LN[178]1867:[141]76:P[178]88:[141]57:[153]"STOP   CMDCMDCMD"LS:[139]LS[178]0[167]WW$[178]N2$:[137]80
24 LM[178]1527:LN[178]1887:[141]76:P[178]109:[141]57:[153]"STOP   CMDCMDCMD"LS:[139]LS[178]0[167]WW$[178]N1$:[137]80
27 [129]T[178]1904[164]1943:[151]T[170]SC,5:[151]T,69:[130]:P[178]240:[141]57:[153]N2$" - IT'S YOUR TURN":[141]58:[141]68:LM[178]1507:LN[178]1867:[141]76:P[178]88:[141]57:[153]"STOP   CMDCMDCMD"LS:[139]LS[178]0[167]WW$[178]N2$:[137]80
33 LM[178]1527:LN[178]1887:[141]76:P[178]109:[141]57:[153]"STOP   CMDCMDCMD"LS:[139]LS[178]0[167]WW$[178]N1$:[137]80
36 [129]T[178]1904[164]1943:[151]T[170]SC,5:[151]T,69:[130]:[137]19
38 H1[178]1516:H2[178]1536:[129]T[178]49440[164]49720[169]3:[151]H1[170]SC[170][194](T),[194](T[170]2):[151]H1[170][194](T),[194](T[170]1):[151]H2[170]SC[170][194](T),[194](T[170]2):[151]H2[170][194](T),[194](T[170]1):H1[178]H1[170][194](T):H2[178]H2[170][194](T):[130]:[129]T[178]1904[164]2023:[151]T[170]SC,5:[151]T,69:[130]:[142]
44 C2[178]50:V[178]53248:[151]2043,242:[151]2044,242:[151]2045,243:[151]2046,243:[151]2047,241:[151]V[170]42,9:[151]V[170]43,9:[151]V[170]44,5:[151]V[170]45,5:[151]V[170]46,11:[151]V[170]14,C2:[151]V[170]15,75:[151]V[170]10,9:[151]V[170]11,150:[151]V[170]16,80:[151]V[170]12,57:[151]V[170]13,155:[151]V[170]6,18:[151]V[170]7,185:[151]V[170]8,70:[151]V[170]9,185:[151]V[170]29,224:[151]V[170]23,120:[151]V[170]21,248:[142]
51 [151]198,0:P[178]365:[141]57:[133]"MAX. 10 LETTERS....STOP";AN$:LN[178][195](AN$):[139]LN[179]11[167]54
53 [129]T[178]1384[164]1423:[151]T,32:[130]:[137]51
54 QQ$[178][199](32)[170]AN$[170][199](32):[129]T[178]1344[164]1423:[151]T,32:[130]:[142]
57 [151]781,P[173]40:[151]782,P[171]40[172][194](781):[151]783,0:[158]65520:[142]
58 C1[178][181](270[172][187](TI[173]37))[170]30:[139]C1[178][179]C2[167]64
60 [129]X[178]C2[164]C1:[139]X[177]255[167][151]V[170]16,[194](V[170]16)[176]2[174]7:XX[178]X[171]255:[151]V[170]14,XX:[137]63
62 [129]DE[178]1[164]25:[130]:[151]V[170]16,80:[151]V[170]14,X
63 [130]:C2[178]C1:[142]
64 [129]X[178]C2[164]C1[169][171]1:[139]X[177]255[167][151]V[170]16,[194](V[170]16)[176]2[174]7:XX[178]X[171]255:[151]V[170]14,XX:[137]67
66 [129]DE[178]1[164]25:[130]:[151]V[170]16,80:[151]V[170]14,X
67 [130]:C2[178]C1:[142]
68 P[178]323:[141]57:[153]W1$:P[178]363:[141]57:[153]W2$
70 P[178]403:[141]57:[153]"WHICH WEATHER TYPE STOP";:[151]198,0:[133]AN$:[139]AN$[178]"R"[167][141]96:[142]
72 [139]AN$[178]"H"[167][141]124:[142]
73 [139]AN$[178]"L"[167][141]152:[142]
74 [139]AN$[178]"T"[167][141]167:[142]
75 P[178]403:[141]57:[153]SS$:[137]70
76 LS[178]0:[129]T[178]LM[164]LN[169]40:[129]Y[178]0[164]12:[139][194](T[170]Y)[178]32[167]79
78 LS[178]LS[170]1
79 [130]:[130]:[142]
80 [153]"LOADSTOP":[151]53280,7:[151]53281,1:[151]V[170]21,0:P[178]253[171]([195](WW$)[173]2):[141]57:[153]WW$" IS THE WINNER":P[178]491:[141]57:[153]"PLAY AGAIN...(Y/N)":[141]88
84 [161]AN$:[139]AN$[178]""[167]84
85 [139]AN$[178]"Y"[167]1
86 [139]AN$[179][177]"N"[167]84
87 [158]64738
88 [129]T[178]0[164]23:[151]T[170]S,0:[130]:[151]S[170]24,10:A[178]15:D[178]107:[151]S[170]5,A:[151]S[170]12,A:[151]S[170]19,A:[151]S[170]6,D:[151]S[170]13,D:[151]S[170]20,D:[151]S[170]14,50:[151]S[170]15,40:[151]S[170]4,33:[151]S[170]11,23:[151]S[170]18,23:[129]F1[178]10[164]50[169]1:[151]S[170]1,F1:[129]F2[178]30[164]1[169][171]5:[151]S[170]8,F2:[130]:[130]:[151]S[170]4,32:[151]S[170]11,32:[151]S[170]18,32:[142]
96 [129]T[178]1344[164]1463:[151]T,32:[130]
97 W[178]([181](200[172][187](TI[173]37))[171]100):[139]W[178]0[167]97
98 W$[178]"<":[139]W[177]0[167]W$[178]"->
99 P=365:GOSUB57:PRINT"THE WIND IS "W$W" K.P.H.
100 P[178]405:[141]57:[153]"ENTER YOUR WIND FACTOR         CMDCMDCMDCMDCMDCMDCMDCMDCMD";
101 [133]AN$:[139]AN$[178]""[167]101
102 [139][198](AN$)[179]45[176][198](AN$)[177]57[167]100
103 WF[178][197](AN$):[139]WF[177]200[176]WF[179][171]200[167]100
104 [129]T[178]1264[164]1463:[151]T,32:[130]:[129]T[178]0[164]24:[151]S[170]T,0:[130]:C[178]1261:CS[178][181](C1[173]8):I[178]0:LO[178]0:J[178]0:F[178](W[170]WF)[173]23.5:[129]A[178]1[164]16:[129]B[178]0[164]7:Z[178]C[170]CS[170]I[170]B:[151]S[170]24,6:[151]S[170]0,255:[151]S[170]1,2:[151]S[170]5,0:[151]S[170]6,240:[151]S[170]4,129:[151]S[170]4,128:[139][194](Z)[179][177]32[167]LO[178]LO[170]1
112 [139]LO[178]9[167]B[178]7:A[178]16:[137]115
113 [151]Z,119:[151]Z[170]SC,0:J[178]J[170]1:[130]:I[178]I[170]F:C[178]C[170]40
115 [130]:[129]T[178]1[164]2000:[130]:C[178]1261:I[178]0:JJ[178]0:[129]A[178]1[164]16:[129]B[178]0[164]7:Z[178]C[170]CS[170]I[170]B:[151]Z,32:JJ[178]JJ[170]1:[139]JJ[178]J[167]B[178]7:A[178]16:[137]122
121 [130]:I[178]I[170]F:C[178]C[170]40
122 [130]:[142]
124 [129]T[178]1344[164]1463:[151]T,32:[130]
125 W[178]([181](200[172][187](TI[173]37))[171]100):[139]W[178]0[167]125
126 W$[178]"<":[139]W[177]0[167]W$[178]"->
127 P=365:GOSUB57:PRINT"THE WIND IS "W$W" K.P.H.
128 P[178]405:[141]57:[153]"ENTER YOUR WIND FACTOR         CMDCMDCMDCMDCMDCMDCMDCMDCMD";
129 [133]AN$:[139]AN$[178]""[167]129
130 [139][198](AN$)[179]45[176][198](AN$)[177]57[167]128
131 WF[178][197](AN$):[139]WF[177]200[176]WF[179][171]200[167]128
132 [129]T[178]1264[164]1463:[151]T,32:[130]:[129]T[178]0[164]24:[151]S[170]T,0:[130]:C[178]1262:CS[178][181](C1[173]8):I[178]0:LO[178]0:J[178]0:F[178](W[170]WF)[173]23.5:[129]A[178]1[164]16:[129]B[178]0[164]3:Z[178]C[170]CS[170]I[170]B:[151]S[170]24,15:[151]S[170]0,255:[151]S[170]1,2:[151]S[170]5,0:[151]S[170]6,240:[151]S[170]4,129:[151]S[170]4,128:[139][194](Z)[179][177]32[167]LO[178]LO[170]1
140 [139]LO[178]11[167]B[178]3:A[178]16:[137]143
141 [151]Z,120:[151]Z[170]SC,0:J[178]J[170]1:[130]:I[178]I[170]F:C[178]C[170]40
143 [130]:[129]T[178]1[164]2000:[130]:C[178]1262:I[178]0:JJ[178]0:[129]A[178]1[164]16:[129]B[178]0[164]3:Z[178]C[170]CS[170]I[170]B:[151]Z,32:JJ[178]JJ[170]1:[139]JJ[178]J[167]B[178]3:A[178]16:[137]150
149 [130]:I[178]I[170]F:C[178]C[170]40
150 [130]:[142]
152 P[178]240:[141]57:[129]T[178]0[164]4:[153]SS$;:[130]:[129]T[178]0[164]26:[151]S[170]T,0:[130]:[151]S[170]24,15:[151]S[170]5,0:[151]S[170]6,255:[151]S[170]1,4:[151]S[170]0,0:[151]S[170]4,129:[129]T[178]1[164]250:[130]:[151]S[170]4,128:CU[178]0:CO[178]0:C[178]1264[170][181](C1[173]8):CC[178]C:[129]T[178]49152[164]49250[169]2:[139][194](C[170][194](T))[178]32[167]162
161 CO[178]CO[170]1:[139]CO[178]13[167]164
162 [151]C[170]SC[170][194](T),1:[151]C[170][194](T),[194](T[170]1):C[178]C[170][194](T):CU[178]CU[170]1:[130]
164 [129]DE[178]1[164]2000:[130]:[129]T[178]49152[164]((CU[171]1)[172]2[170]49152)[169]2:[151]CC[170][194](T),32:CC[178]CC[170][194](T):[130]:[142]
167 P[178]240:[141]57:[129]T[178]0[164]4:[153]SS$;:[130]:[129]T[178]0[164]26:[151]S[170]T,0:[130]:[151]S[170]24,15:[151]S[170]0,255:[151]S[170]1,2:[151]S[170]5,0:[151]S[170]6,255:[151]S[170]4,129:[129]T[178]1[164]250:[130]:[151]S[170]4,128:CU[178]0:CO[178]0:C[178]1260[170][181](C1[173]8):CC[178]C:[129]T[178]49261[164]49434[169]2:[139][194](C[170][194](T))[178]32[167]177
176 CO[178]CO[170]1:[139]CO[178]17[167]179
177 [151]C[170]SC[170][194](T),0:[151]C[170][194](T),[194](T[170]1):C[178]C[170][194](T):CU[178]CU[170]1:[130]
179 [129]DE[178]1[164]2000:[130]:[129]T[178]49261[164]((CU[171]1)[172]2[170]49261)[169]2:[151]CC[170][194](T),32:CC[178]CC[170][194](T):[130]:[142]